From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 May 1994 07:45:49 +0000 (+0000)
Subject: (show-paren-command-hook):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91405
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e8f9dff93bc1a0415327d6299a25ca136a833326;p=emacs.git

(show-paren-command-hook):
Always set show-paren-mismatch-face to symbol, not face vector.
---

diff --git a/lisp/paren.el b/lisp/paren.el
index 14d2d0c5b0d..34768396a3d 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -82,14 +82,12 @@
 		    (progn
 		      (and (null show-paren-mismatch-face)
 			   (x-display-color-p)
-			   (or (setq show-paren-mismatch-face
-				     (internal-find-face 'paren-mismatch))
+			   (or (internal-find-face 'paren-mismatch)
 			       (progn
 				 (make-face 'paren-mismatch)
-				 (setq show-paren-mismatch-face
-				       'paren-mismatch)
 				 (set-face-background 'paren-mismatch
-						      "purple"))))
+						      "purple")))
+			   (setq show-paren-mismatch-face 'paren-mismatch))
 		      (if show-paren-mismatch-face
 			  (setq face show-paren-mismatch-face)
 			(message "Paren mismatch"))))